1 IFA=1THEN6
2 PRINT"[147]DISK BASIC-LOADER"
3 POKE631,83:POKE632,89:POKE633,83:POKE634,53:POKE635,50:POKE636,49:POKE637,49
4 POKE638,56:POKE639,13:POKE198,9
5 IFA=0THENA=1:LOAD"DISK BASIC*",8,1
6 POKE646,6:NEW